<script>on mouseUpgo to card id 2671end mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>266</left>
<top>263</top>
<right>366</right>
<bottom>285</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Look at Data</name>
<script>on mouseUpgo to card id 3931end mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>4</id>
<text><span class="style2">ather than have a separate card for each possible set of data to be displayed, it is more efficient (not to mention ELEGANT) HyperCard scripting to use a single card to hold all the data and then build each individual "card" on-the-fly, or, in other words: virtual cards!In this way, ShortStack contains only three cards, but gives the impression of containing as many as 18 cards.Go to the next card and click on the "Answer" button. Each time you click, instead of bringing up another card with the same background and card fields, you see different data supplied for the field. The same effect could be achieved by having a different card for each answer, but this method uses much less overhead and makes it much easier to add and maintain data (since it's all in one spot, there's only one card to edit).The answers (the data) are all contained on a single card, Card Three of this stack. Click on the "Look at Data" button to go to this card. Notice that commas separate the line number from the line data.The script that does the building of the on-the-fly "card" is in the "Answer" button. Check it out! (Choose the Button Tool, double click on the "Answer" button and click on "script.")There are five variations, which should give you plenty of food for thought.Although all the examples use only one or two lines from the Data Card, many different elements can be used to build up a more complicated virtual card.Best of luck!</span><span class="style4">This stack is freeware: free to use, free to share (but also free of all liability for the author!). Compliments, however, are always welcome and may be directed to:Stuart Kohler, <skohler@aol.com>(And a tip-of-the-hat to Ken Dufort who is virtually responsible for this stack!)</span></text>
</content>
<name></name>
<script>on closeCardset the scroll of card field 1 to 1end closeCard</script>
</card>
card_2671.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>----------------------------------------------------------------------on mouseUp--get an answer from the Data Card and put it into the card field--put item 2 of line random(15) of card field "Answers" of ¬card id 3931 into card field 1end mouseUp------------------------------------------------------------------------fancier version of above - this one keeps track of the last answer--and makes sure the same one does not come up twice in a row.--**NOTE: to try out any of these alternate mouseUp routines, you-- need to remove the number (for example "2" in this case) and-- make sure you only have *one* mouseUp handler in this button.on mouseUp2Global whichOneGlobal lastOneput random(15) into whichOneif lastOne is whichOnethenrepeat until lastOne is not whichOneput random(15) into whichOneend repeatend ifput item 2 of line whichOne of card field "Answers" of¬card id 3931 into card field 1put whichOne into lastOneend mouseUp2------------------------------------------------------------------------an even fancier version, in case you need to choose multiple--lines and want to make sure you don't choose the same line twice--for the same card:on mouseUp3put random(15) into randomOneput random(15) into randomTwoif randomTwo is randomOnethenrepeat until randomTwo is not randomOneput random(15) into randomTwoend repeatend ifput item 2 of line randomOne of card field "Answers" of card¬id 3931 into card field 1put item 2 of line randomTwo of card field "Answers" of card¬id 3931 into card field 2end mouseUp3------------------------------------------------------------------------and a *really* fancy version, for two lines, neither of which--are repeated from the previous card:on mouseUp4Global randomOneGlobal randomTwoGlobal oldOneGlobal oldTwo--put random(15) into randomOneif randomOne is oldOne or randomOne is oldTwothenrepeat until randomOne is not oldOne and randomOne is not oldTwoput random(15) into randomOneend repeatend if--put random(15) into randomTwoif randomTwo is oldTwo or randomTwo is oldOnethenrepeat until randomTwo is not oldTwo and randomTwo is not oldOneput random(15) into randomTwoend repeatend if--if randomTwo is randomOnethenrepeat until randomTwo is not randomOne and randomTwo is not oldTwo¬and randomTwo is not oldOneput random(15) into randomTwoend repeatend ifput item 2 of line randomOne of card field "Answers" of card¬id 3931 into card field 1put item 2 of line randomTwo of card field "Answers" of card¬id 3931 into card field 2put randomOne into oldOneput randomTwo into oldTwoend mouseUp4------------------------------------------------------------------------finally (although interesting permutations don't stop!),--here's a script for creating a random set, with no numbers--repeated. This version makes a set of 10 numbers picked from--1 to 20.on mouseUp5put random(20) into randomSetput random(20) into randomTemprepeat while the number of items in randomSet < 10if randomTemp is not in randomSetthen put randomTemp & "," & randomSet into randomSetelse put random(20) into randomTempend repeat----if you'd like the resulting set put in ascending order,--remove the two dashes from the following line:sort items of randomSet ascending numeric--put randomSetend mouseUp5------------------------------------------------------------------</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>177</left>
<top>206</top>
<right>462</right>
<bottom>224</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Answer</name>
<script></script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>180</left>
<top>260</top>
<right>338</right>
<bottom>284</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Back to Explanation</name>
<script>on mouseUpgo to card id 4857end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>177</left>
<top>227</top>
<right>462</right>
<bottom>245</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<name></name>
<script>on closeCardput empty into card field 1put empty into card field 2end closeCard</script>
</card>
card_3931.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpgo to card id 4857end mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>1</id>
<text>1,Answer hazy -- try again later2,Yup -- I think3,Nope -- probably4,Hard to say on this one5,Didn't get it -- ask again6,Wise guy!7,Would you believe 62?8,Could go either way9,Probably -- but not definitely10,Could be11,Might be12,Ask your Ouiji board!13,You might have better luck flipping Tarot cards!14,Better consult the I-Ching15,I'd help if I could... really!</text>
